home *** CD-ROM | disk | FTP | other *** search
- 1 rem *** bytes 'r' us (64) ***
- 2 s=700:rem change s to relocate
- 3 printchr$(147):print
- 4 forj=stos+23:reada:pokej,a:x=x+a:nextj
- 5 ifx<>3448thenprint"error in data...":end
- 6 print"data ok. sys"s"for bytes...":end
- 7 data166,43,232,232,134,251,165,45,56,229,251,170
- 8 data164,46,176,1,136,152,56,229,44,76,205,189
-